home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 1-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 10 rem ***  vibrato
  2. 11 :
  3. 12 : d=500   :rem verzoegerung (delay)
  4. 13 : l=5     :rem schwingweite (level)
  5. 14 : g=20    :rem geschw.      (speed)
  6. 15 : h=3500  :rem tonhoehe
  7. 19 :
  8. 20 rem * ton einschalten
  9. 21 :
  10. 22 s=54272:pokes+4,8:pokes+24,15 :rem  stimme 1 loeschen und volle lautstaerke
  11. 23 pokes+6,255:pokes+5,0:pokes+4,33 :rem  adsr und saegezahn-wellenform setzen
  12. 24 fori=0to10:next:pokes+4,32 :rem  warten und ton auf ausklingen setzen
  13. 25 pokes,hand255:pokes+1,h/256 :rem  tonhoehe mit low- und high-byte setzen
  14. 29 :
  15. 30 rem * virbato vorbereiten
  16. 31 :
  17. 32 ri=g   :rem anfangsrichtung setzen (positiv : hochzaehlen)
  18. 33 za=l/2 :rem startschwingweite setzen (am anfang nur die haelfte !)
  19. 39 :
  20. 40 rem * vibrato !
  21. 41 :
  22. 42 fori=0tod:next  :rem delay (warten)
  23. 43 :
  24. 44 fori=0toza :rem  schleife fuer schwingweite
  25. 45 h=h+ri     :rem  tonhoehe entsprechend der geschwindigkeit veraendern
  26. 46 pokes,hand255:pokes+1,h/256 :rem neue tonhoehe als low- und high-byte setzen
  27. 47 next :rem  ...das ganze bis zum ende der schwingweite.
  28. 48 za=l :rem  nach erstem durchlauf auf vole schwingweite schalten.
  29. 49 ri=-ri :rem  schwingrichtung umdrehen.
  30. 50 goto44 :rem  und alles von vorne...
  31.